This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

library(readxl)
library(lubridate)
library(dplyr)
Global_ETF_symbols <- read_excel("~/Global-ETFs/Global-ETF-symbols.xlsx")
Global_ETF_symbols$Inception <- ymd(Global_ETF_symbols$Inception)
Global_ETF_symbols$Country <- gsub("iShares|MSCI|ETF|capped|currency|hedged|large-cap|all|min|vol|small-cap|adaptive|edge|\\b\\w{1,2}\\s", "", Global_ETF_symbols$Country, ignore.case = TRUE)
Global_ETF_symbols$Country[47]<-"United Arab Emirates"
Global_ETF_symbols<-Global_ETF_symbols[-65, ]
testList
             Japan    Brazil     India    China     Germany    Canada    South Korea  
2007-01-03    14.20      46.70       NA 116.40000      27.15     24.75           48.73
2007-01-04    14.35      46.10       NA 112.29999      27.06     24.35           48.19
2007-01-05    13.98      44.47       NA 105.95001      26.61     24.27           47.03
2007-01-08    14.06      45.10       NA 109.04999      26.53     24.11           47.12
2007-01-09    14.15      43.95       NA 104.19999      26.65     24.16           46.60
2007-01-10    13.94      44.27       NA 102.15000      26.36     24.13           46.45
2007-01-11    13.87      44.67       NA 102.99998      26.60     24.24           46.81
2007-01-12    14.05      45.50       NA 105.39999      26.88     24.78           47.86
2007-01-16    14.10      44.95       NA 107.39001      27.03     24.44           48.01
2007-01-17    14.10      44.98       NA 106.25002      26.88     24.70           47.62
2007-01-18    14.09      44.69       NA 104.79999      26.73     24.43           47.35
2007-01-19    14.19      45.77       NA 106.35000      27.10     24.77           47.47
2007-01-22    14.19      45.93       NA 107.00002      26.79     24.49           47.00
2007-01-23    14.27      47.15       NA 108.90000      26.99     24.98           47.57
2007-01-24    14.46      47.52       NA 110.49998      27.15     25.23           48.60
             Taiwan     China    United Kingdom    Hong Kong    Australia    Mexico  
2007-01-03      14.73       NA             23.55        16.16        23.54      51.70
2007-01-04      14.78       NA             23.50        15.99        23.10      51.25
2007-01-05      14.41       NA             23.05        15.87        22.72      50.05
2007-01-08      14.36       NA             23.15        16.27        22.85      50.38
2007-01-09      14.21       NA             23.00        16.23        22.98      49.00
2007-01-10      14.18       NA             22.94        16.08        22.82      49.50
2007-01-11      14.15       NA             23.25        16.12        23.03      50.10
2007-01-12      14.46       NA             23.47        16.28        23.42      50.35
2007-01-16      14.42       NA             23.47        16.48        23.38      50.61
2007-01-17      14.51       NA             23.47        16.59        23.36      50.70
2007-01-18      14.42       NA             23.42        16.55        23.50      50.14
2007-01-19      14.48       NA             23.68        16.84        23.81      50.50
2007-01-22      14.32       NA             23.56        16.94        23.76      50.54
2007-01-23      14.53       NA             23.76        17.06        24.26      51.45
2007-01-24      14.84       NA             23.91        16.92        24.06      52.50
             Switzerland    India      Japan    Spain     Singapore     Italy     Indonesia 
2007-01-03           24.99      NA         NA     54.07         11.40     33.42           NA
2007-01-04           24.96      NA         NA     54.10         11.42     33.34           NA
2007-01-05           24.79      NA         NA     53.59         11.28     32.91           NA
2007-01-08           24.72      NA         NA     53.74         11.27     32.95           NA
2007-01-09           24.79      NA         NA     53.42         11.18     32.93           NA
2007-01-10           24.67      NA         NA     52.59         11.01     32.58           NA
2007-01-11           24.80      NA         NA     53.22         11.05     32.79           NA
2007-01-12           25.09      NA         NA     53.57         11.22     33.16           NA
2007-01-16           25.10      NA         NA     53.50         11.35     33.14           NA
2007-01-17           25.25      NA         NA     53.45         11.39     32.94           NA
2007-01-18           25.18      NA         NA     53.08         11.40     32.87           NA
2007-01-19           25.35      NA         NA     53.85         11.60     33.32           NA
2007-01-22           25.14      NA         NA     53.58         11.73     33.20           NA
2007-01-23           25.40      NA         NA     54.04         11.84     33.45           NA
2007-01-24           25.31      NA         NA     54.44         11.93     33.67           NA
               Germany    Russia     Chile     South Africa    Thailand     Turkey    Sweden  
2007-01-03           NA         NA        NA          112.35           NA        NA      32.60
2007-01-04           NA         NA        NA          110.50           NA        NA      31.58
2007-01-05           NA         NA        NA          107.95           NA        NA      31.29
2007-01-08           NA         NA        NA          108.95           NA        NA      31.25
2007-01-09           NA         NA        NA          108.17           NA        NA      30.93
2007-01-10           NA         NA        NA          107.80           NA        NA      30.59
2007-01-11           NA         NA        NA          109.06           NA        NA      31.13
2007-01-12           NA         NA        NA          110.88           NA        NA      31.65
2007-01-16           NA         NA        NA          111.99           NA        NA      31.96
2007-01-17           NA         NA        NA          112.81           NA        NA      31.96
2007-01-18           NA         NA        NA          112.92           NA        NA      31.63
2007-01-19           NA         NA        NA          113.39           NA        NA      32.08
2007-01-22           NA         NA        NA          114.21           NA        NA      31.93
2007-01-23           NA         NA        NA          116.24           NA        NA      32.25
2007-01-24           NA         NA        NA          116.76           NA        NA      32.23
             France    Malaysia     Peru     Netherlands    Poland     Philippines 
2007-01-03     34.34        9.30        NA          26.40         NA             NA
2007-01-04     34.08        9.40        NA          26.36         NA             NA
2007-01-05     33.64        9.30        NA          25.98         NA             NA
2007-01-08     33.63        9.34        NA          26.02         NA             NA
2007-01-09     33.72        9.38        NA          26.06         NA             NA
2007-01-10     33.39        9.34        NA          25.84         NA             NA
2007-01-11     33.78        9.36        NA          26.01         NA             NA
2007-01-12     34.02        9.50        NA          26.35         NA             NA
2007-01-16     33.88        9.69        NA          26.45         NA             NA
2007-01-17     33.74        9.72        NA          26.48         NA             NA
2007-01-18     33.64        9.79        NA          26.39         NA             NA
2007-01-19     34.03        9.88        NA          26.72         NA             NA
2007-01-22     33.74        9.84        NA          26.39         NA             NA
2007-01-23     33.96       10.06        NA          26.60         NA             NA
2007-01-24     34.23       10.29        NA          26.60         NA             NA
             New Zealand     Japan     Ireland     Belgium     Israel    JPX-Nikkei 400 
2007-01-03              NA        NA          NA       25.95         NA           125.30
2007-01-04              NA        NA          NA       25.67         NA           126.70
2007-01-05              NA        NA          NA       25.36         NA           123.82
2007-01-08              NA        NA          NA       25.55         NA           124.29
2007-01-09              NA        NA          NA       25.64         NA           125.07
2007-01-10              NA        NA          NA       25.42         NA           123.05
2007-01-11              NA        NA          NA       25.61         NA           122.92
2007-01-12              NA        NA          NA       25.73         NA           124.68
2007-01-16              NA        NA          NA       25.64         NA           124.89
2007-01-17              NA        NA          NA       25.74         NA           124.47
2007-01-18              NA        NA          NA       25.79         NA           124.18
2007-01-19              NA        NA          NA       25.87         NA           125.18
2007-01-22              NA        NA          NA       25.72         NA           125.04
2007-01-23              NA        NA          NA       25.82         NA           126.07
2007-01-24              NA        NA          NA       25.89         NA           127.88
             Austria     India       United Kingdom    Denmark        Japan    Brazil  
2007-01-03       36.59        NA                  NA          NA          NA         NA
2007-01-04       36.84        NA                  NA          NA          NA         NA
2007-01-05       35.89        NA                  NA          NA          NA         NA
2007-01-08       35.84        NA                  NA          NA          NA         NA
2007-01-09       35.90        NA                  NA          NA          NA         NA
2007-01-10       34.95        NA                  NA          NA          NA         NA
2007-01-11       35.28        NA                  NA          NA          NA         NA
2007-01-12       35.67        NA                  NA          NA          NA         NA
2007-01-16       35.40        NA                  NA          NA          NA         NA
2007-01-17       35.39        NA                  NA          NA          NA         NA
2007-01-18       35.25        NA                  NA          NA          NA         NA
2007-01-19       35.71        NA                  NA          NA          NA         NA
2007-01-22       35.79        NA                  NA          NA          NA         NA
2007-01-23       36.17        NA                  NA          NA          NA         NA
2007-01-24       36.33        NA                  NA          NA          NA         NA
             Qatar   United Arab Emirates   Finland     Norway     United Kingdom     Germany  
2007-01-03        NA                   NA          NA         NA                 NA          NA
2007-01-04        NA                   NA          NA         NA                 NA          NA
2007-01-05        NA                   NA          NA         NA                 NA          NA
2007-01-08        NA                   NA          NA         NA                 NA          NA
2007-01-09        NA                   NA          NA         NA                 NA          NA
2007-01-10        NA                   NA          NA         NA                 NA          NA
2007-01-11        NA                   NA          NA         NA                 NA          NA
2007-01-12        NA                   NA          NA         NA                 NA          NA
2007-01-16        NA                   NA          NA         NA                 NA          NA
2007-01-17        NA                   NA          NA         NA                 NA          NA
2007-01-18        NA                   NA          NA         NA                 NA          NA
2007-01-19        NA                   NA          NA         NA                 NA          NA
2007-01-22        NA                   NA          NA         NA                 NA          NA
2007-01-23        NA                   NA          NA         NA                 NA          NA
2007-01-24        NA                   NA          NA         NA                 NA          NA
             China     Colombia       Spain    China      South Korea    Saudi Arabia  
2007-01-03        NA           NA         NA       NA               NA               NA
2007-01-04        NA           NA         NA       NA               NA               NA
2007-01-05        NA           NA         NA       NA               NA               NA
2007-01-08        NA           NA         NA       NA               NA               NA
2007-01-09        NA           NA         NA       NA               NA               NA
2007-01-10        NA           NA         NA       NA               NA               NA
2007-01-11        NA           NA         NA       NA               NA               NA
2007-01-12        NA           NA         NA       NA               NA               NA
2007-01-16        NA           NA         NA       NA               NA               NA
2007-01-17        NA           NA         NA       NA               NA               NA
2007-01-18        NA           NA         NA       NA               NA               NA
2007-01-19        NA           NA         NA       NA               NA               NA
2007-01-22        NA           NA         NA       NA               NA               NA
2007-01-23        NA           NA         NA       NA               NA               NA
2007-01-24        NA           NA         NA       NA               NA               NA
                Japan      Australia      Switzerland      Italy     JPX-Nikkei 400 
2007-01-03          NA             NA               NA         NA                 NA
2007-01-04          NA             NA               NA         NA                 NA
2007-01-05          NA             NA               NA         NA                 NA
2007-01-08          NA             NA               NA         NA                 NA
2007-01-09          NA             NA               NA         NA                 NA
2007-01-10          NA             NA               NA         NA                 NA
2007-01-11          NA             NA               NA         NA                 NA
2007-01-12          NA             NA               NA         NA                 NA
2007-01-16          NA             NA               NA         NA                 NA
2007-01-17          NA             NA               NA         NA                 NA
2007-01-18          NA             NA               NA         NA                 NA
2007-01-19          NA             NA               NA         NA                 NA
2007-01-22          NA             NA               NA         NA                 NA
2007-01-23          NA             NA               NA         NA                 NA
2007-01-24          NA             NA               NA         NA                 NA
               Canada      Mexico 
2007-01-03          NA          NA
2007-01-04          NA          NA
2007-01-05          NA          NA
2007-01-08          NA          NA
2007-01-09          NA          NA
2007-01-10          NA          NA
2007-01-11          NA          NA
2007-01-12          NA          NA
2007-01-16          NA          NA
2007-01-17          NA          NA
2007-01-18          NA          NA
2007-01-19          NA          NA
2007-01-22          NA          NA
2007-01-23          NA          NA
2007-01-24          NA          NA
 [ reached getOption("max.print") -- omitted 2486 rows ]
##the packages we need to grab the map data
library(rgdal)
library(sp)
library(leaflet)
##where to find the world map
## "http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip"
## Create spatial data frame
## Have a look at this in the global environment after it is loaded
## it contains the shape file, and population and gdp data, amongst other things
world <-readOGR(".", "CopyOfne_50m_admin_0_countries", verbose = FALSE)
##create shading by GDP
qpal <- colorQuantile("Blues", world$gdp_md_est, n = 20)
##create popup country name and economic stage
popup <- paste0("<strong>Country: </strong>", 
                world$name, 
                "<br><strong>Market Stage: </strong>", 
                world$economy)
leaf_world <- leaflet(world) %>%
  addProviderTiles("CartoDB.Positron") %>% 
  setView(lng =  20, lat =  15, zoom = 2) %>%
      addPolygons(stroke = FALSE, smoothFactor = 0.2, fillOpacity = .7, color =
      ~qpal(gdp_md_est), layerId = ~iso_a3, popup = popup)
leaf_world
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ21kK1NoaWZ0K0VudGVyKi4gCgpgYGB7cn0KbGlicmFyeShyZWFkeGwpCmxpYnJhcnkobHVicmlkYXRlKQpsaWJyYXJ5KGRwbHlyKQpHbG9iYWxfRVRGX3N5bWJvbHMgPC0gcmVhZF9leGNlbCgifi9HbG9iYWwtRVRGcy9HbG9iYWwtRVRGLXN5bWJvbHMueGxzeCIpCkdsb2JhbF9FVEZfc3ltYm9scyRJbmNlcHRpb24gPC0geW1kKEdsb2JhbF9FVEZfc3ltYm9scyRJbmNlcHRpb24pCkdsb2JhbF9FVEZfc3ltYm9scyRDb3VudHJ5IDwtIGdzdWIoImlTaGFyZXN8TVNDSXxFVEZ8Y2FwcGVkfGN1cnJlbmN5fGhlZGdlZHxsYXJnZS1jYXB8YWxsfG1pbnx2b2x8c21hbGwtY2FwfGFkYXB0aXZlfGVkZ2V8XFxiXFx3ezEsMn1cXHMiLCAiIiwgR2xvYmFsX0VURl9zeW1ib2xzJENvdW50cnksIGlnbm9yZS5jYXNlID0gVFJVRSkKR2xvYmFsX0VURl9zeW1ib2xzJENvdW50cnlbNDddPC0iVW5pdGVkIEFyYWIgRW1pcmF0ZXMiCkdsb2JhbF9FVEZfc3ltYm9sczwtR2xvYmFsX0VURl9zeW1ib2xzWy02NSwgXQpgYGAKCmBgYHtyLCB3YXJuaW5nID0gRkFMU0V9CmxpYnJhcnkocXVhbnRtb2QpCmxpYnJhcnkoUGVyZm9ybWFuY2VBbmFseXRpY3MpCgpnZXRTeW1ib2xzKEdsb2JhbF9FVEZfc3ltYm9scyRTeW1ib2wsIGF1dG8uYXNzaWduID0gVFJVRSwgd2FybmluZ3MgPSBGQUxTRSkKCiNMb29wIHRocm91Z2ggc3ltYm9scywgZmV0Y2ggcHJpY2VzLCBhbmQgc3RvcmUgaW4gbXlMaXN0CiMjbGFwcGx5KEdsb2JhbF9FVEZfc3ltYm9scyRTeW1ib2wsIGZ1bmN0aW9uKHgpIHsoZ2V0U3ltYm9scyh4LCBhdXRvLmFzc2lnbiA9IEZBTFNFKSl9KQojI25hbWVzKG15TGlzdCkgPC0gR2xvYmFsX0VURl9zeW1ib2xzJENvdW50cnkKCiMjdGhpbmsgYWJvdXQgdGhlIGRpZmZlcmVudCBzdGFydCBkYXRlcywgb3IganVzdCBsaXZlIHdpdGggdGhlIDIwMDcgYW5kIG1hcCBpdAp0ZXN0TGlzdCA8LSBkby5jYWxsKG1lcmdlLCBsYXBwbHkoR2xvYmFsX0VURl9zeW1ib2xzJFN5bWJvbCwgZnVuY3Rpb24oeCkgQ2woZ2V0KHgpKSkpCmNvbG5hbWVzKHRlc3RMaXN0KSA8LSBHbG9iYWxfRVRGX3N5bWJvbHMkQ291bnRyeQp0ZXN0TGlzdApgYGAKCmBgYHtyfQppbnN0YWxsLnBhY2thZ2VzKCJydmVzdCIpCmxpYnJhcnkocnZlc3QpCnJ2ZXN0X3Rlc3QgPC0gcmVhZF9odG1sKCJodHRwczovL3d3dy5pc2hhcmVzLmNvbS91cy9wcm9kdWN0cy9ldGYtcHJvZHVjdC1saXN0IyF0eXBlPWlzaGFyZXMmdGFiPW92ZXJ2aWV3JnZpZXc9bGlzdCZmYz00MzUzN3w0MzUzOHw0MzUzOXw0MzU0MHw0MzU0MXw0MzU0M3w0MzU0NHw0MzU0NXw0MzU1MHw0MzU1OHw0MzU2MXw0MzU2Mnw0MzU2OHw0MzU3MHw0MzU3MXw0MzU3Nnw0MzU3N3w0MzU3OHw0MzU3OXw0MzU4Mnw0MzU4M3w0MzU5Mnw0MzU5M3w0MzU5NXw0MzYwNXw0MzYwNnw0MzYwN3w0MzYwOXw0MzYxMnw0NDA3MHw0MzYxNHw0MzYxNnw0MzYxN3w0MzYxOHw0MzYyMXw0MzYyMnw0MzYyNHw0MzYyOHw0MzYyOXw0MzYzMHw0MzYzMSIpCgpydmVzdF90ZXN0CnRpY2tzIDwtIGh0bWxfbm9kZXMocnZlc3RfdGVzdCwgY3NzID0gInRhYmxlIikKdGlja2VycyA8LSBodG1sX25vZGVzKHJ2ZXN0X3Rlc3QsICAiLmNvbExvY2FsRXhjaGFuZ2VUaWNrZXIiKQpgYGAKCgpgYGB7ciwgd2FybmluZyA9IEZBTFNFfQojI3RoZSBwYWNrYWdlcyB3ZSBuZWVkIHRvIGdyYWIgdGhlIG1hcCBkYXRhCmxpYnJhcnkocmdkYWwpCmxpYnJhcnkoc3ApCmxpYnJhcnkobGVhZmxldCkKCiMjd2hlcmUgdG8gZmluZCB0aGUgd29ybGQgbWFwCiMjICJodHRwOi8vd3d3Lm5hdHVyYWxlYXJ0aGRhdGEuY29tL2h0dHAvL3d3dy5uYXR1cmFsZWFydGhkYXRhLmNvbS9kb3dubG9hZC81MG0vY3VsdHVyYWwvbmVfNTBtX2FkbWluXzBfY291bnRyaWVzLnppcCIKCiMjIENyZWF0ZSBzcGF0aWFsIGRhdGEgZnJhbWUKIyMgSGF2ZSBhIGxvb2sgYXQgdGhpcyBpbiB0aGUgZ2xvYmFsIGVudmlyb25tZW50IGFmdGVyIGl0IGlzIGxvYWRlZAojIyBpdCBjb250YWlucyB0aGUgc2hhcGUgZmlsZSwgYW5kIHBvcHVsYXRpb24gYW5kIGdkcCBkYXRhLCBhbW9uZ3N0IG90aGVyIHRoaW5ncwp3b3JsZCA8LXJlYWRPR1IoIi4iLCAiQ29weU9mbmVfNTBtX2FkbWluXzBfY291bnRyaWVzIiwgdmVyYm9zZSA9IEZBTFNFKQojI2NyZWF0ZSBzaGFkaW5nIGJ5IEdEUApxcGFsIDwtIGNvbG9yUXVhbnRpbGUoIkJsdWVzIiwgd29ybGQkZ2RwX21kX2VzdCwgbiA9IDIwKQoKIyNjcmVhdGUgcG9wdXAgY291bnRyeSBuYW1lIGFuZCBlY29ub21pYyBzdGFnZQpwb3B1cCA8LSBwYXN0ZTAoIjxzdHJvbmc+Q291bnRyeTogPC9zdHJvbmc+IiwgCiAgICAgICAgICAgICAgICB3b3JsZCRuYW1lLCAKICAgICAgICAgICAgICAgICI8YnI+PHN0cm9uZz5NYXJrZXQgU3RhZ2U6IDwvc3Ryb25nPiIsIAogICAgICAgICAgICAgICAgd29ybGQkZWNvbm9teSkKCmxlYWZfd29ybGQgPC0gbGVhZmxldCh3b3JsZCkgJT4lCiAgYWRkUHJvdmlkZXJUaWxlcygiQ2FydG9EQi5Qb3NpdHJvbiIpICU+JSAKICBzZXRWaWV3KGxuZyA9ICAyMCwgbGF0ID0gIDE1LCB6b29tID0gMikgJT4lCiAgICAgIGFkZFBvbHlnb25zKHN0cm9rZSA9IEZBTFNFLCBzbW9vdGhGYWN0b3IgPSAwLjIsIGZpbGxPcGFjaXR5ID0gLjcsIGNvbG9yID0KICAgICAgfnFwYWwoZ2RwX21kX2VzdCksIGxheWVySWQgPSB+aXNvX2EzLCBwb3B1cCA9IHBvcHVwKQoKbGVhZl93b3JsZApgYGAKCg==